home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / mus / play / DelfMPEG.lha / DelfMPEG / rexx / launch < prev    next >
Text File  |  2002-10-30  |  407b  |  22 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx launch */
  4.  
  5. if show(ports,DELFMPEG) then do
  6.     say 'DelfMPEG is already running.'
  7.     return 5
  8. end
  9.  
  10. ADDRESS COMMAND 'run <>NIL: DelfMPEG AREXX SHOWTAG'
  11.  
  12. do loop=1 to 10
  13.     ADDRESS COMMAND 'wait 1'
  14.     if ~show(ports,DELFMPEG) then say 'waiting...'
  15.     else do
  16.         say 'DelfMPEG launch o.k.'
  17.         return 0
  18.     end
  19. end
  20. say 'DelfMPEG launch failed.'
  21. return 20
  22.